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ABSTRACT 


This  document  defines  the  overall  design  for 
an  AFICCS  generalized  serial  tape  file  management  capability. 
This  capability  provides  three  management  functions  — 
generate,  update,  and  browse. 
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SECTION  I 


1.0  INTRODUCTION 

The  AFICCS  generalized  serial  tape  file  management  capability 
is  designed  to  provide  three  types  of  file  manipulation  functions  — 
generate,  update  and  browse.  These  functions  are  controlled  by 
specifications  defined  via  a  user-oriented  language. 

One  of  the  salient  design  features  of  the  capability  is  the 
ability  to  examine  and  edit  both  input  transactions  and  current 
file  data.  In  addition  to  the  well  known  file  generation  and  update 
functions,  the  browse  function  will  operate  in  conjunction  with 
the  OCC  (BR-90) ,  thus  providing  the  necessary  man-machine  interface 
to  perform  on-line  auditing  and  verification  of  existing 
file  data. 

Two  modes  of  operation  are  available,  off-line  batched  processing 
and  on-line  conversational  employing  OCC  interaction.  The  OCC  inter¬ 
face  may  be  utilized  with  all  types  of  file  manipulations,  but  is 
mandatory  with  the  browse  function. 
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SECTION  II 


2,0  GENERAL  CAPABILITY  DESCRIPTION 

The  serial  tape  management  package  is  a  set  of  programs  which 
can  be  broadly  categorized  according  to  their  functions,  namely, 
executive,  translator,  and  utility  routines.  The  system  executive 
provides  the  overall  supervision,  control,  and  subprogram  sequencing 
for  the  three  types  of  file  manipulations  (generate,  update,  and 
browse)  and  is  driven  by  the  control  set  information.  One  set  of 
control  information  (directives)  contains  the  serial  tape  file 
description,  the  input  data  description,  and  the  logical  data 
operations*  to  be  performed.  It  is  the  function  of  the  system 
translator  to  convert  the  logical  data  operations  from  their  ex¬ 
ternal  form  to  an  internal  representation  for  subsequent  interpreta¬ 
tion  and  execution  by  an  executive  subroutine.  The  primary  purpose 
of  the  utility  routines  is  to  build  and  maintain: 

1)  tables  such  as  conversion  and  validity  lists; 

2)  subroutines  such  as  special  error  checking  programs;  and 

3)  complete  control  set  information  including  the  trans¬ 
lated  logical  operators. 

For  efficient  operation,  the  executive  program  has  been  separated 
into  two  distinct  phases.  Phase  1  accepts  input  data  and,  based  on 
the  associated  file/input  descriptions  and  tables,  generates  trans¬ 
action  records  on  tape.  Similarly,  Phase  2  accepts  the  input 
transaction  records  and,  based  on  the  associated  logical  operators, 
tables,  and  subroutines,  produces  logical  records  which  when  merged 
with  the  current  file  results  in  an  updated  file. 

The  three  management  functions,  via  the  executive,  appeal  to 
all  or  a  subset  of  Phase  1  and  Phase  2  routines.  Update  utilizes 
both  Phase  1  and  Phase  2  routines.  Browse  causes  all  Phase  2 
routines  to  be  executed;  Phase  1  is  not  executed  since  browse 
does  not  require  input  data.  Generate  utilizes  all  Phase  1  and 
Phase  2  routines. 


Logical  operators  are  defined  in  Appendix  A. 
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SECTION  III 


3.0  DETAILED  PROGRAM  DESCRIPTIONS 

A  total  of  fourteen  programs  comprise  the  serial  tape  manage¬ 
ment  package.  Prior  to  presenting  descriptions  of  these  specific 
routines,  definitions  of  the  system  elements  must  be  established 

3.1  System  Definitions 

£  file  record  —  tape  record  to  be  generated  or  updated 

^  logical  record  —  core  image  of  the  file  record 

0  unit  record  —  card/tape  input  record,  one  or  more  of  which 
are  used  to  generate/update  a  logical  record 

£  control  set  —  information  defining  the  file  and  maintenance 
process.  Each  control  set  consists  of: 

^file  attribute  list  —  description  of  the  file  structure 

^unit  record  input  attribute  list  —  description  of  the 

unit  record  types 
and  structure 

^logical  operators  —  user-defined  processors  of  logical/ 

file  record  data. 


3.2  Executive  Routines 

Four  routines  -  FMEXEC,  PHASE 1,  PHASE 2,  and  TEMPMOD  - 
perform  the  executive  functions  including  control  card  interpretation, 
job  sequencing  and  input/output  operations. 


FMEXEC,  the  file  management  executive  routine, 
interprets  the  system  control  cards r  and,  if 
requested,  executes  the  Logical  Operator  Temporary 
Modifier  Routine  (TEMPMOD) .  Subprograms  PHASE1  and 
PHASE2  are  called  for  generate  and  update  manipulation 
actions;  PHASE2  is  called  for  a  browse  request. 


Control  card  formats  are  specified  in  Appendix  D. 


3 


PHASE1,  the  unit  record  processor,  reads  the 
input  data  and  generates  logical  record  trans¬ 
action  data  under  control  of  the  control  set 
directives . 


PHASE2  merges  logical  record  transaction  data  with 
file  data,  or  if  a  browse  request,  scans  and  error 
detects/corrects  current  file  data. 


TEMFMOD ,  called  by  FMEXEC ,  allows  temporary 
exception  updates  of  logical  operators  at  run 
time . 

3.3  Translator  Routine 

One  routine  —  TRANS  —  translates  raw  logical  operators  to 
an  internal  representation. 

TRANS,  called  by  the  executive  routines,  accepts  the 
logical  operators  in  an  input  buffer  and,  using  file 
and  unit  record  descriptions,  converts  them  to  an 
internal  executable  representation. 

3.4  Utility  Routines 

Eight  utility  processors  maintain  the  control  set  informa¬ 
tion,  update  tables  and  subroutines,  in  addition  to  providing  in 
appropriate  printed  format  all  maintenance  information  associated 
with  the  system  files. 

CSDB,  the  control  set  processor,  deletes  existing 
control  set  entries  or  creates  new  control  set 
skeletons . 


FALB,  the  file  attribute  list  processor,  adds  or 
redefines  file  attribute  lists  for  a  given  control 
set  and  appeals  to  the  logical  operator  processor 
to  retranslate,  if  required. 


URALB,  the  unit  record  attribute  list  processor, 
creates  or  redefines  the  unit  record  attribute  List 
for  a  given  control  set  and  calls  for  retranslation 
of  the  logical  operators,  if  required. 
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LOB,  the  logical  operator  processor,  translates  initial 
logical  operator  sets  or  retranslates  existing 
logical  operator  sets  for  given  control  set.  The 
processor  will,  at  user  option,  save  raw  operators 
on  tape. 


SUBDB,  the  subroutine  processor,  updates  the  sub¬ 
routine  directory  by: 

1)  adding  new  entries, 

2)  changing  SDA’s  of  existing  subroutines;  or 

3)  deleting  entries. 

TABB,  the  table  processor,  updates  tables  by: 

1)  adding  new  table  entries, 

2)  changing  SDA's  of  existing  tables;  or 

3)  deleting  entries, 

ERRDB,  the  error  directory  processor,  updates  entries 
in  the  error  directory. 


UPRINT ,  the  utility  print  program,  lists  in  appropriate 

formats . 

1)  the  control  set  dictionary, 

2)  the  control  set  file  attributes,  unit  record 
structure  and  attributes; 

3)  table  data;  and 

4)  the  subroutine  directory. 

3.5  OCC  Interface  Routine 

OCCIF,  the  OCC  interface  program,  accepts  error  messages 
including  the  erroneous  data  (in  stream  format)  from  the  1410 
and  allows  error  correction,  if  desired,  for  subsequent  transmission 
to  the  1410.  OCCIF  is  a  BR-90  program. 
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APPENDIX  A 


LOGICAL  OPERATOR  DEFINITIONS  AND  SYNTAX 


DEFINITIONS: 

MOVE 

Move  field  to  output  (blank  fields  not  moved) . 

MOVEB 

Move  field  to  output  (blank  fields  moved) . 

DO 

Execute  user  subroutine. 

COMPUTE 

Compute  to  system  hold  area. 

SET 

Set  input  error. 

IF 

Compare  function. 

$x 

Input  field  representation  where  x  is  the 
attribute  name. 

y 

Output  field  representation  where  y  is  the 
attribute  name. 

X 

Literal  representation  where  is  the  literal 

HOLDn 

Hold  area  representation  where  n  identifies 
the  particular  hold  field. 

s 

Subroutine  representation  where  s  is  the 
subroutine  name. 

e 

Error  representation  where  e  is  the  error 
number . 

Parameters 

Subroutine  parameters  separated  by  slashes  (/) . 

True  phrase 

Any  combination  of  SET,  MOVE,  MOVEB,  DO  and/or 

False  phrase 

COMPUTE  operators. 

One  or  more  blank  characters  (blanks  around  ,  or 
.  are  optional)  . 

Choice  of  one  entry. 


+ 

Add 

- 

Subtract 

* 

Multiply 

i 

Divide 

EQ 

Equals 

NQ 

Not  equal 

GR 

Greater 

GE 

Greater  or  equal 

LS 

Less 

LE 

Less  or  equal 

SYNTAX: 

/'•/"I  w 

1 - <  'HOLDn  > - 


DO. 


parameters 
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COMPUTE 


SET - $x  - - TO  -  e  _ 

(Valid  only  in  IF  T/F  phrase)  . 


'  > 

r  > 

f  > 

$x 

EQ 

$x 

NQ 

y. 

GR 

J 

’  ' 

HOLDn 

GE 

HOLDn 

LS 

^  j 

LE 

v  J 

AND 


OR  - 


true  phrase  — -r 


k 


false  phrase 


* 
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APPENDIX  B 

PROGRAMS  AND  SUBPROGRAMS 
EXECUTIVE  PROGRAM  -  FMEXEC 


NAME : 

File  Management  Executive 

CLASS 

Program 

ORIGIN; 

00500 

FUNCTION. 

To  determine  and  oversee  the  operation  of  the 
file  update  subprograms. 

CALLING  SEQUENCE- 

Call  FMEXEC  from  console 

INPUT. 

File  Management  Executive  Control  Cards  and, 
if  desired,  logical  operator  temporary  modifiers 

OUTPUT; 

Execution  of  file  management  processes  as 
specified 

ERROR  RETURN: 

Illegal  control  card  directives 

ACCESSED  SDA’s: 

Control  Set  Directory 

ACCESSED  PROGRAMS- 

TEMPMOD 

PHASE  1  and  associated  subprograms 

PHASE  2  and  associated  subprograms 
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REMARKS: 


General  Executive  Flow 


ENTER 


Process 
card  and 
INITIALIZE 
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EXECUTIVE  SUBPROGRAM  -  PHASE1 


NAME. 

CLASS 

ORIGIN: 

FUNCTION 

CALLING  SEQUENCE* 
INPUT . 

OUTPUT: 

ERROR  INTERFACE: 

ACCESSED  SDA's; 

REMARKS 
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PHASE1  Function 
Subprogram  .(FMEXEC) 

To  be  determinedduring  implementation 

To  process  unit  record  input  data  for  the 
generation  of  logical  record  transaction  data 
under  control  of  the  control  set  directives 

Called  and  executed  by  FMEXEC 

Unit  Record  data 

Logical  Record  Transaction  data 

Optional  data  error  interface  with  OCC. 
Mandatory  printer  data  error  logging 

Control  Set 
Tables 
Subroutines 
Error  List 

Core  Map 


I/O  area 

PHASE 1 

FUNCTION 

UNIT  RECORD 

TYPE  LIST 

2165 

UNIT  RECORD  ATTRIBUTE  LIST/ 

FILE  ATTRIBUTE  LIST 

8660 

SUBROUTINE  BLOCK 

2000 

TABLE  BLOCK 

2165 

ERROR  BLOCK 

245 

EXECUTIVE 
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EXECUTIVE  SUBPROGRAM  -  PHASE 2 


NAME: 

CLASS: 

ORIGIN: 

FUNCTION: 

CALLING  SEQUENCE 
INPUT : 

OUTPUT: 

ERROR  INTERFACE: 

ACCESSED  SDA's: 

REMARKS: 


PHASE2  Function 
Subprogram  (FMEXEC) 

To  be  determined  during  implementation 

To  merge  the  logical  record  transaction  data 
with  the  file  data,  or  using  the  BROWSE  feature, 
scan  and  error  detect /correct  file  data 

Called  and  executed  by  FMEXEC 

Logical  record  transaction  data  and/or  file  data 
Update  file  data 

Optional  data  error  interface  with  OCC . 

Mandatory  printer  data  error  logging^ 

Control  Set 
Tables 
Subroutines 
Error  List 


Core  Map 


I/O  AREA 

PHASE 2 

FUNCTION 

LOGICAL 

OPERATORS 

10000 

SUBROUTINE  BLOCK 

2000 

TABLE  BLOCK 

2165 

ERROR  BLOCK 

245 

EXECUTIVE 
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EXECUTIVE  SUBPROGRAM  --  TEMPMOD 


NAME 

CLASS 

ORIGIN: 

FUNCTION 


CALLING  SEQUENCE: 
INPUT : 


Temporary  Modifier 
Subprogram  (FMEXEC) 

To  be  determined  during  implementation 

To  modify  the  logical  operators  for  a 
given  EXECUTIVE  pass 

Called  and  executed  by  FMEXEC 

Logical  Operator  Update  cards  followed  by 
an  END  card 


UXXX  Y 


r 


UXXX 


END 


where  U  =  A,C,D 

XXX  “  statement  number 

Y - y  =  new  Logical  Opera¬ 

tor 


13 


OUTPUT: 

ACCESSED 
REMARKS : 


NOTE:  Logical  operators  which  continue  on  more 

than  one  card  must  not  have: 

A; 

C  5 

D;  or 
END 

starting  in  column  1. 

Updated  logical  operators  in  compressed  form 
on  a  disk  buffer 

PROGRAMS:  TRANS 

Core  Map 


TRANSLATOR  and 
Bu  f  fer  s 


Temporary 

MODIFIER 


EXECUTIVE 
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TRANSLATOR  SUBPROGRAM  --  TRANS 


NAME : 

Logical  Operator  Translator 

CLASS. 

Subprogram  (Logical  Operator  Builder/ 
Temporary  Modifier) 

ORIGIN 

To  be  determined  during  implementation 

FUNCTION 

To  translate  a  raw  logical  operator  into 
its  internal  form 

CALLING  SEQUENCE: 

B  TRANS  in  calling  program 

INPUT 

A  complete  raw  logical  operator  in  the 
statement  buffer 

OUTPUT: 

Internal  representation  of  the  logical 
operator  in  the  statement  buffer 

ERROR  RETURN: 

Error  switch  set  Error  message  stored  in 

translator  communications  zone 

ACCESSED  SDA's: 

Table  Directory 

Subroutine  Directory 

Control  Set 

RELIAR  KS 

Translator  Core  Map 

TABLE  DIRECTORY 

179 

SUBROUTINE  DIRECTORY 

400 

FILE  ATTRIBUTE  LIST/ 
UNIT  RECORD  ATTRIBUTE 
LIST 

8660 

STATEMENT  BUFFER 

4165 

TRANSLATOR 

COMM  ZONE 

CALLING  PROGRAM 

15 


Translator  Communications  Zone  contains  items 
such  as: 

a)  SDA  of  Control  Set; 

b)  File  Attribute  List  location  and  size; 

c)  Unit  Record  Attribute  List  Location 
and  size; 

d)  Table  Directory  size; 

e)  Subroutine  Directory  size; 

f)  Error  indicator  and  message  buffer. 
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UTILITY  PROGRAM  --  CSDB 


NAME: 

CLASS. 

ORIGIN: 

FUNCTION 


CALLING  SEQUENCE: 
INPUT: 


Control  Set  Directory  Builder 

Program 

00500 

To  maintain  the  Control  Set  Directory  by 
creating  new  control  set  skeletons,  deleting 
existing  control  sets,  or  changing  main 
level  information  in  the  Control  Set 
Directory.  (May  require  allocation  of  new 
control  set  SDA  and/or  reallocating  Control 
Set  Directory.) 

Call  CSDB  via  console 

One  or  more  update  cards  followed  by  an 
end  card. 

Update  card  format 


COLUMN 

FIELD 

1 

C  =  Change 

A  =  Add 

D  =  Delete 

2-11 

Set  name  (left  justified) 

12-21 

file  name  (optional) 

22-23 

file  blocking  ^ 
factor 

\  product 

24-27 

file  record  [ 

size  J 

28-31 

merge  id  location  [1,2800 

32-33 

merge  id  size  [1,99] 
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COLUMN 


FIELD 


34 

35-36 

37-77 

78-80 


file  header  on  each  reel 

Y  -  yes 
N  =  no 

b  =  no  headers 

file  header  length  [1,41] 

file  header  data  (left 
justified) 

CSD 


ERRORS : 


ACCESSED  SDA's: 


END  card  format 

COLUMN  FIELD 

1-3  END 

1.  Attempted  to  delete  or  change  non¬ 
existent  control  set. 

2.  Attempted  to  add  an  existent  control 
set . 

3.  Control  card  data  in  error. 

Above  errors  cause  rejection  of  update 
card . 

1.  No  end  card  -  requires  input. 

Control  Set  Directory 
Control  Set  SDA 
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UTILITY  PROGRAM 


FALB 


NAME: 

File  Attribute  List  Builder 

CLASS: 

Program 

ORIGIN : 

00500 

FUNCTION : 

To  create  or  overwrite  the  file  attribute 
list  for  a  given  control  set  and  call  for 
retransla tion  of  logical  operators,  if 
required . 

CALLING  SEQUENCE: 

Call  FALB  via  console 

INPUT: 

A  control  card  and  one  or  more  attribute 
update  cards  per  block,  one  or  more  blocks 
followed  by  an  end  card. 

Control  card  format 

COLUMN  FIELD 

1-11  CONTROL bSET 

13-22  Control  set  name 

24  Avoid  retranslation  of 

logical  operators 

b  =  yes 

N  =  no 

Attribute  update  card  format 

COLUMN  FIELD 

1-10  Attribute  name 

12-13  Type 

A  =  Alphabetic 

AN  =  Alphanumeric 

N  =  Numeric 

19 

Attribute  update  card  format  (cone.) 


OUTPUT: 

ERRORS : 

ACCESSED 

ACCESSED 


COLUMN 

FIELD 

15-18 

Field  size 

20-23 

Relative  location  within 
record  (optional) 

78-80 

FAL 

card  format 

COLUMN 

FIELD 

1-3 

END 

File  Attribute  List  built  in  the  Control 
Set  structure. 

Invalid  control  card 
Invalid  attribute  cards 

No  end  card  -  end  card  required 

SDA's:  Control  Set  Directory 

Control  Set 

PROGRAMS :  TEMPMOD 


ignore  batch 
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UTILITY  PROGRAM  --  URALB 


NAME: 
CLASS: 
ORIGIN: 
FUNCTION : 


CALLING  SEQUENCE: 
INPUT: 


Unit  Record  Attribute  List  Builder 

Program 

00500 

To  create  or  overwrite  the  Unit  Record 
Attribute  List  for  a  given  control  set 
and  call  for  retranslation  of  the 
logical  operators  if  required. 

Call  URALB  via  console 

A  control  card,  a  Unit  Record  Data  Card, 
one  or  more  Unit  Record  identifier  cards 
with  associated  Unit  Record  Attribute  cards 
per  block,  one  or  more  blocks  followed  by 
an  end  card. 

Control  card  format 


COLUMN 

FIELD 

1-11 

CONTROLbSET 

13-22 

Control  set  name 

24 

Avoid  retransla tion  of 
logical  operators 

b  =  yes 

N  -  no 

Record 

data  card  format 

COLUMN 

FIELD 

1-11 

UNITbRECORD 

13 

Unit  record  id  size  [1,5] 

13-18 

Unit  record  id  location 
within  unit  record  [1,2800 
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Unit  Record  data  card  format 


COLUMN 

FIELD 

20-23 

Unit  record  size 

>  product  <  2800 

25-26 

Unit  record  blocking  l 
factor  J 

Unit  Record  Attribute  card  format 


COLUMN 

FIELD 

6-15 

Attribute  name 

16-17 

Type 

A  =  Alphabetic 

AN  =  Alphanumeric 

N  =  Numeric 

18-21 

Location  with  unit  record 

22-25 

Field  size 

26 

Conversion 

T  =  Table  lookup 

S  =  Subroutine 
b  =  None 

27-32 

Conversion  table  or  subroutine 

name 

33-73 

Conversion  parameters 

78-80 

URA 

End  card  format 


COLUMN 

FIELD 

1-3 

END 
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OUTPUT : 


ERRORS : 


ACCESSED  SDA's: 


ACCESSED  PROGRAMS. 


Unit  Record  Attribute  List  structure  in 
control  set  and  if  redefinition,  appeal 
to  Logical  Operator  retranslation. 

Errors  in  definition  cards  cause  rejection 
of  upda  te . 

End  card  and  proper  input  sequence  is 
mandatory . 

Control  Set  Directory 
Control  Set 
Subroutine  Directory 
Table  Directory 

TEMPMOD 
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UTILITY  PROGRAM  --  LOB 


NAME: 

Logical  Operator  Builder 

CLASS: 

Program 

ORIGIN: 

00500 

FUNCTION : 

To  create  or  retranslate  the  logical 
operator  for  a  given  control  set. 

CALLING  SEQUENCE: 

Call  LOB  via  console 

INPUT : 

A  control  card  followed  by  one  or  more 
logical  operator  data  cards  per  block, 
one  or  more  blocks  followed  by  an  end 
card . 

Control  card  format 

COLUMN  FIELD 

1-11  CONTROL b SET 

13-22  Control  set  name 

Logical  Operator  data  and  format 

Free  format  card  stream  of  Logical 
Opera  tors . 

No  card  may  contain  either 

CONTROLbSET 

or 

END 

starting  in  column  1. 

End  card  format 

COLUMN  FIELD 

1-3 
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END 


OUTPUT : 


ERRORS . 


ACCESSED 


ACCESSED 


Translated  Logical  Operators  stored  on 
disk.  Raw  Logical  Operators  stored  on 
scratch  tape. 

Logical  Operator  statement  number  list  on 
printer . 

XXX  Y - Y 

Y  - y 

Y  - Y 

where  XXX  is  the  assigned  statement 
number 

YY  Y  is  raw  statement. 

Illegal  control  card  causes  rejection  of 
data  cards. 

Logical  Operator  format  errors 

End  card  is  mandatory. 

SDA's:  Control  Set  Directory 

Control  Set 
Table  Directory 
Subroutine  Directory 

PROGRAMS :  TRANS 


| 
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UTILITY  PROGRAM  --  SUBDB 


NAME: 

Subroutine  Directory  BuiLder 

CLASS: 

Program 

ORIGIN: 

00500 

FUNCTION: 

To  maintain  the  subroutine  directory  by 
adding  new  entries,  deleting  old  enLries 
and  changing  SDA's  for  existing  subroutine 
names.  Reallocation  of  Directory  SDA  may 
be  necessary. 

CALLING  SEQUENCE: 

Call  SUBDB  via  console 

INPUT : 

One  or  more  update  cards  followed  by  an 

END  card. 

Update  card  format 

COLUMN  FIELD 

1  A  =  Add 

D  =  Delete 

C  =  Change 

3-8  Subroutine  name  (left 

adjusted) 

10-13  SDA  of  subroutine 

(SDA  must  be  in  Mode  5 

1-5  relative  records  long) 

End  card  format 

COLUMN  FIELD 

1-3  END 

OUTPUT: 

Updated  Subroutine  Directory  entries 
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ERRORS : 


1.  Attempted  to  delete  or  change  a  non¬ 
existent  table  entry; 

2.  Attempted  to  add  an  entry  with  name 
already  defined; 

3.  Bad  card  format; 

4.  Illegal  SDA  type. 

Above  errors  cause  rejection  of  the  erro¬ 
neous  card. 

5.  No  end  card.  End  card  necessary  to 
terminate  run. 


ACCESSED  SDA's: 


SDAT 

Subroutine  Directory  (implementor  will 
allocate  and  assign  an  SDA  for  this 
directory  and  request  1  record  of  Mode  5 
storage) . 
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UTILITY  PROGRAM 


TABB 


NAME: 

Table  Builder 

CLASS: 

Program 

ORIGIN: 

00500 

FUNCTION : 

To  add  new  tables,  change  existing  tables 
and  delete  existing  tables  (may  involve 
reallocation  of  Table  Directory  and  Table 
SDA)  . 

CALLING  SEQUENCE: 

Call  TABB  via  console. 

INPUT : 

One  control  card  and  a  number  of  table 
value  cards  per  block,  one  or  more  blocks 
followed  by  an  end  card. 

Control  card  format 

COLUMN  FIELD 

1  C  =  Replace  table 

D  =  Delete  table 

A  =  Add  table 

3-8  Table  name  (left  adjusted) 

9-10  Lookup  argument  size  [1,80] 

12-13  Value  size  [0,79] 

NOTE:  Argument  size  X  value 

size  £  80. 

15  C  =  Conversion  table 

L  =  Legal  value  table 
(no  values) 

78-80  TAB 
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Table  data  column 


OUTPUT : 

ERRORS : 


ACCESSED  SDA’s. 


COLUMN  FIELD 

1-n  Argument  (free  format)  where 

n  is  argument  size 

(n+l)-80  Value  (free  format) 

End  Card 


COLUMN  FIELD 

1-3  END 


Updated  entries  in  the  Table  Directory  and 
TABLE  SDA. 

1.  Attempted  to  delete  or  change  non¬ 
existent  table; 

2.  Attempted  to  add  table  already  defined; 

3.  Error  in  control  cards. 

Above  cause  the  bypassing  of  all  cards  for 
the  erroneous  block. 

1.  No  end  card;  requires  end  card. 

Table  Directory  (implementor  will  initially 
assign  one  record  of  Mode  7). 

Table  SDA  (implementor  will  initially  assign 
one  record  of  Mode  3) 
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UTILITY  PROGRAM  --  ERRDB 


NAME: 

Error  Directory  Builder 

CLASS:  * 

Program 

ORIGIN: 

00500 

FUNCTION : 

To  update  an  entry  in  the  error  directory 
by  replacing  the  contents  of  the  message 
with  card  data. 

CALLING  SEQUENCE: 

Call  ERRDB  via  console. 

INPUT: 

One  or  more  update  cards  followed  by  an 
end  card. 

Update  card  format 

COLUMN  FIELD 

1-3  Error  number  [1,200] 

4-80  Error  text  -  free  format 

End  card  format 

COLUMN  FIELD 

1-3  END 

OUTPUT: 

Updated  entires  in  the  Error  Directory. 

ERROR : 

Illegal  error  number-- ignore  card. 

No  end  card--requires  end  card. 

ACCESSED  SDA's: 

Error  Directory  (implementor  will  allocate 
an  SDA  of  Mode  8,  67  records.  All  records 
will  be  initially  cleared). 
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UTILITY  PROGRAM  --  UPRINT 


NAME- 

CLASS: 

ORIGIN: 

FUNCTION: 


CALLING  SEQUENCE: 


Utility  Print 

Program 

00500 

To  list  in  appropriate  formats 

1.  Control  Set  Directory. 

2.  Control  Set  File  Attributes  and  Unit 
Record  Structure  and  Attributes. 

3.  Table  data. 

4.  Subroutine  Directory. 

Enter  via  the  console  the  following: 


1.  UPRINTbSETbDIR 

The  above  lists  all  entries  in  the 
Control  Set  Directory. 

2.  UPRINTbSETbXX, . .X  where  XX... X  is  a 

control  set  identifier 


The  above  lists  the  File  Attributes  and 
Unit  Record  Structure  and  Attributes  for 
the  given  control  set. 

3.  UPRINTbSETbALL 

The  above  performs  the  function  of 
step  (2)  for  all  control  sets 

4.  UPRINT bSUB 


The  above  lists  the 

5.  UPRINTbTAB 

The  above  lists  the 
also  lists  the  data 

6.  UPRINTbERR 

The  above  lists  the 
the  error  table. 


Subroutine  Directory. 


Table  Directory  and 
in  the  Tables. 


non-blank  entries  in 
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INPUT:  Appropriate  system  SDA's. 

OUTPUT:  •  The  format  of  the  printing  will  be  as 

follows  relating  formats  number  with 
option  number  in  CALLING  SEQUENCE. 


1. 

CONTROL  SETS 

DATE  PAGE 

SET 

NAME 

FILE 

NAME 

ETC. 

X 

X 

X 

X 

X 

X 

X 

X 

X - 

X 

X 

X 

2&3. 

CONTROL 

SET  X 

X 

CONTENTS  DATE  PAGE 

FILE  ATTRIBUTES 

ATTRIBUTE 

NAME  TYPE  ETC. 

X - X  X — X 

X - X  X — X 


X - X  X — X 


UNIT  RECORD  DATA 


BLOCKING 

FACTOR 

X - X 

RECORD  TYPE 


RECORD 

LENGTH 

X - X 

X - X 


TYPE 

ID 

SIZE  ETC. 
X 


ATTRIBUTE 

NAME 


TYPE  ETC. 


X - X  X — X 

X - X  X — X 
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ATTRIBUTE 

NAME  TYPE  ETC. 


X - X  X — X 

RECORD  TYPE  =  X - X 

ETC. 


4. 


SUBROUTINES 


NAME 


X“ 

x- 


SDA 


x- 

X“ 


-x 

-X 


DATE  PAGE 


x- 


-X 


X“ 


5.  TABLES 

NAME  TYPE 
X — X  X — X 

ARG  VALUE 


ARG 

LENGTH  ETC. 


x- 


X — X 
X — X 


X — X 
X — X 


DATE  PAGE 


X — X 


X — X 
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ARG 

NAME  TYPE  LENGTH  ETC . 

X — X  X — X  X - X 

ARG  VALUE 

X - X  X - X 


ETC. 


6.  ERROR  LIST 
NUMBER 
X - X 

X - -X 


DATE 

TEXT 

X - X 

X - X 


ETC. 


PAGE 


ACCESSED  SDA's:  Appropriate  System  SDA*s 


% 
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OCC  INTERFACE  ROUTINE  --  OCCIF 


NAME : 
CLASS: 
ORIGIN: 
FUNCTION . 


CALLING  SEQUENCE: 
INPUT: 


OUTPUT : 


OCC  Interface  (OCCIF) 

OCC  Program 

To  be  determined  during  implementation 

To  receive  an  error  stream  from  the  1410; 
format  the  OCC  screen  with  the  error; 
accept  user  corrections,  if  desired,  and 
transmit  the  corrected  data  to  the  1410. 

Internal  1410  write  out  to  BR-90 

Stream  from  1410 

M _ MV _ VE.  .  .E 

where  M.  .  .  .M  is  the  merge  id 

V....V  is  the  error  value 
E....E  is  the  error  message  text 

Stream  to  1410 

XV. . . .V 

where  X  is  the  status  (pad,  retry  with 

correction,  or  ignore) 

V.  .  . .V  is  new  value 
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APPENDIX  C 


NAME: 

PURPOSE: 

SIZE: 

AREA  FORMAT: 


Entry  Format: 


TABLE  FORMATS 


Update  Control  Set  Directory 
Initial  link  to  the  Control  Set 

Variable,  one  entry  per  Control  Set,  five  entries  on 


each 

record,  mo 

de  L5 . 

a) 

A 

B 

c 

D 

E 

1 

8 

1 

2 

3 

1 

5 

4 

2 

1 

1 

1 

b) 

V 

b 

A 

B 

i 

8 

i 

2 

3 

1 

6 

4 

2 

1 

L 

1 

Entries  A,  B,  ■  •  •  E  are  identical  in  format  per  disk 
record , 

Format  a  describes  disk  record  with  five  entries 
Format  b  describes  disk  record  with  two  entries. 

Size :  Fixed  length,  80  characters. 

Description : 


V 

FFFFFFFFFF 

G 

HH 

III . I 

KK 

LLLL 

MMMM 

NN 

ssss 

xxxxxxxxxx 

1 

1 

i 

1 

5 

5 

6 

6 

6 

7 

1 

2 

4 

5 

7 

1 

5 

7 

1 

FFFF...F  File  Name  (optional) 


G  Y,  file  header  on  each  reel 

N,  file  header  not  on  each  reel 

HH  File  Header  Length 

II . I  First  41  characters  of  File  Header 

KK  Tape  File  Blocking  Factor 
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Remark: 


LLLL 

MMMM 

NN 

ssss 

XXX ....  X 


Tape  File  Record  Length 

Merge  ID  Location  (within  file  record) 

Merge  ID  Length 

SDA  of  Control  Set 

Control  Set  Name 


In  general,  all  alphanumeric  items  will  be  left  adjusted 
and  padded  with  blanks;  all  numeric  items  will  be  right 
adjusted  and  padded  with  zeroes. 
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NAME : 


Update  Control  Set 


PURPOSE: 

LENGTH: 

AREA  FORMAT: 


Provides  overaLl  control  information  for  all  serial 
file  generation,  update  and  browse  programs.  Each 
Update  Control  Set  contains: 


a) 

the 

file 

descr i 

Lption  attribute  list 

b) 

the 

unit 

input 

record (s)  attribute 

list(s) 

c) 

the 

comp 

ressed 

form  of  the  logical 

opera  to 

Variable,  mode  LI,  maximum  length  of  one  control  set  is 
85  relative  records. 


Pointer 

s  to  lists 

and  other 

con 

trol  info 

File 

At 

tribute  Lis 

t 

(Up 

to 

20  relative 

records) 

Unit 

Record  Pointer  List  (1 

rel 

.  record) 

Unit 

Re 

icord  Attribute  List 

(Up 

to 

56  relative 

records) 

Logi 

ca  1 

Opera  tors 

(compress 

ed) 

(Up 

to 

5  relative 

records) 

Rel . 

Record 

0000 

Re  1 

Record 

0001 
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DETAIL  AREA  FORMAT: 


Update  Control  Set  Pointer  Record 


FORMAT: 


V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

AAAA 

BBBB 

CCCC 

DDDD 

EEEE 

F 

GGGG 

HHHH 

II 

KKKK 

LLLL 

1 

5 

9 

i 

i 

2 

2 

2 

3 

3 

3 

3 

7 

1 

2 

6 

0 

2 

6 

V  V  V 


V 

M 

V 

NNNN 

V 

00 

4 

4 

4 

4  2 

0 

1 

5 

7  1 

6 

5 

AAAA 

BBBB 

CCCC 

DDDD 

EEEE 

F 

GGGG 

HHHH 

II 

KKKK 

LLLL 

M 

NNNN 

00 


SDA 

Number  of  relative  r.ecords  this  SDA 

Starting  relative  record  of  File  Attribute 
List 

Number  of  records  in  File  Attribute  List 

Starting  relative  record  of  Unit  Record 
Pointer  List 

Number  of  relative  records  in  Unit  Record 
Pointer  List  (always  1) 

Starting  relative  record  of  Unit  Record 
Attribute  List 

Number  of  relative  records  in  Unit  Record 
Attribute  List 

Unit  Record  Blocking  Factor 

Unit  Record  Size 

Relative  start  location  (in  Unit  Record) 
of  Unit  Record  Type  ID. 

Length  of  Unit  Record  Type  ID. 

Starting  relative  record  of  Logical  Operators. 
Number  of  relative  records  of  Logical  Operators. 


39 


DETAIL  AREA  FORMAT:  File  Attribute  List 

LENGTH:  Variable,  maximum  of  20  relative  records, 

packed  in  blocks  of  4  records  from  right  to 
left  for  table  lookup.  A  maximum  of  2000 
unique  attributes  may  be  stored  per  file 
as  20  character  words. 


FORMAT: 


a) 


A433 

A432 

^31. 

1 

2 

4 

1 

1 

A0 

A0 

A. 

3 

2 

1 

2 

1 

4 

6 


1st  record  of 
block 


4th  relative 
record  of  block 


b) 


2 

1 

4 

6 


4th  relative 
record  of  block 


Format  a  illustrates  a  completely  filled  block 
Format  b  illustrates  a  partially  filled  block 
with  a  short  field  set  to  stop  the  table 
search.  The  contents  of  the  first  three 
relative  records  are  irrelevant. 


Entry  Format: 

V 

SSSS 

LLLL 

TT 

NNNNNNNNNN 

1 

5 

9 

1  2 

1  0 

SSSS 

=  Field  Size 

LLLL 

=  Field  Relative  Location 

Record) 

TT 

=  Data  Type 

NN . . . N 

=  Attribute  Name 
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DETAILED  AREA  FORMAT: 


Unit  Record  Pointer  List 


LENGTH:  One  relative  record,  each  entry  is  18 

characters  long.  Up  to  100  entries  are 
permitted . 

FORMAT : 


V 

b 

A3 

A2 

Ai 

2 

2 

2 

2  2 

1 

1 

1 

1  1 

1 

1 

3 

4  6 

1 

2 

0 

8  3 

The  entries  are  packed  from  right  to  left, 
the  leftmost  entry  is  preceded  by  a  wordmark- 
blank  to  end  a  table  search. 


Entry  Format- 


V 

NNNN 

LLLL 

RRRR 

c 

XXXXX 

1 

5 

9 

1 

1 

1 

3 

4 

8 

NNNN  = 
LLLL  = 
RRRR  = 
C 

XXXXX  = 


Number  of  attributes  for  this  type 
record 

Length  of  attribute  list  for  this 
type  record 

Relative  entry  in  Unit  Attribute 
List  stream 

Sequence  Control  (C,  F,  N,  I) 

Unit  Record  ID  Value. 


41 


DETAILED  AREA  FORMAT: 


Unit  Record  Attribute  List 


LENGTH:  Variable;  up  to  56  relative  records.  Entries 

are  60  characters  long  and  are  packed  in 
blocks  of  4  records  from  right  to  left. 

FORMAT : 


blank 

V 

A  ,  , 

A 

A 

b 

144 

110 

109 

1 

2 

2 

8 

0 

1 

1 

a) 


A109 

A108 

A 

XXX 

A 

XXX 

2nd  record 

1 

A 

XXX 

A1 

4th  record 

1 

b) 


V 

b 

A2 

A1 

1  2 

2 

2  2 

0 

0 

1  1 

4 

4 

0  6 

5 

6 

6  5 

4th  record 


Format  a  depicts  block  of  4 
maximal  number  of  entries. 
Format  b  shows  a  block  with 
The  contents  of  records  1-3 
irrelevant . 


records  with 

only  2  entries, 
in  this  blockare 


Entry  Format;: 


V 

ITT . . . T 

c 

DD 

LLLL 

SSSS 

RRRR 

NNNNNNNNNN 

1  3 

3 

3 

3 

4 

4 

5 

5 

6 

7 

9 

3 

7 

1 
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ITT . . . t 


C 

DD 

LLLL 

SSSS 

RRRR 

NN . N 


Table  or  Routine  Name  and 
Parameters 

Conversion  Indicator 
Data  Type  (A,  N,  AN) 

Relative  location  within  file  record 
Field  Length 

Relative  location  within  unit  record 
Attribute  Name 
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DETAILED  AREA  FORMAT: 


Logical  Operators  Table 


LENGTH: 

Variable,  maximum  of  5  relative  records. 
Tiie  logical  operators  may  have  a  maximum 
length  of  10000  characters. 

FORMAT: 

The  logical  operators  are  stored  in  a 
continuous  stream  from  left  to  right  and 
may  overflow  from  one  relative  record  to 
the  next  relative  record. 
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NAME* 


Error  Message  Table 


LENGTH . 


FORMAT : 


Entry  Format : 


Fixed,  Mode  M10,  67  relative  records.  A 
maximum  of  200  error  messages  may  be 
stored  in  the  table.  Each  message  has  a 
maximum  length  of  77  characters. 


blanks 


M1 

M2 

M3 

1  7 

7 

7  1 

3  5 

4 

2  2 

3  4 

2  5 

Re  1 . Rec . 0000 


Relative  records  1  through  67  are  identical 
in  format  to  relative  record  0. 

Each  error  message  is  left-adjusted  in  its 
77  character  slot. 
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NAME: 

PURPOSE : 
SIZE: 

AREA  FORMAT: 


Entry  Format : 


Remark : 


Subroutine  Directory 

Provides  linkage  to  the  user  subroutines. 

Variable,  mode  L5,  one  entry  per  subroutine, 
up  to  40  entries  each  record 


a) 

A 

A 

A 

A 

i 

1 

2 

3 

1 

1 

9 

1 

b) 

Vh 

A 

A 

3 

3 

3 

8 

8 

9 

0 

1 

1 

Format  a  describes  disk  record  with  40  entries 
Format  b  describes  disk  record  with  2  entries. 

Size :  Fixed  length,  10  characters. 

Description :  v 

Issss  mi 

I1  5 


XXXXXX  =  Subroutine  Name 

SSSS  =  Corresponding  SDA 

Subroutine  Name  must  be  at  least  two 
characters  long.  The  length  of  a  subroutine 
is  limited  to  2000  characters.  All  subroutines 
will  be  assembled  with  the  SAP  assembler  and 
stored  in  up  to  five  relative  records  of 
Mode  L5. 
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NAME: 


Lookup  Table  Directory 


PURPOSE : 
SIZE: 


Provides  linkage  to  user  lookup  tables 

Variable,  mode  L10,  one  entry  per  lookup 
table,  up  to  12  entries  each  record. 


AREA  FORMAT: 

a  'l 

V 

blankb 

A 

A 

A 

i  i 

i 

2 

4 

i  i 

i 

2 

6 

0 

6  7 

6  9 

V 

blanks 

b 

A 

A 

b) 

1 

i 

1  1 

5 

5 

6  7 

1 

2 

6  9 

Entry  Format : 


Remarks 


Format  a  describes  disk  record  with  12  entries 
Format  b  describes  disk  record  with  2  entries 

Size :  Fixed  length,  14  characters 


Description : 


V 

NNNN 

RRRR 

XXXXXX 

1 

5 

9 

XXXXXX  *=  Table  Name 


RRRR  =  Relative  Record 

NNNN  =  Number  of  Relative  Records 

Table  Name  must  be  at  least  two  characters 
long.  Set  A  bit  over  low  order  character 
in  RRRR  if  lookup  argument  in  corresponding 
table  is  one  character 

Set  A  bit  over  tens  position  of  RRRR  to 
indicate  a  legal  value  table  (no  A  bit 
indicates  conversion  table) . 


47 


NAME: 


Lookup  Table  Set 


PURPOSE : 


Contains  (user  supplied)  Lookup  Tables 


SIZE. 


Variable,  Mode  LI,  up  to  27  entries  per 
relative  record. 


AREA  FORMAT: 


All  entries  are  packed  from  right  to  left 
into  the  relative  record.  A  ^  is  placed 
to  the  leftmost  entry. 


1 


1 

6 

5 


Entry  Format:  Size :  Variable  length,  maximum  length  is 

80  characters 

Description:  Wordmark  placed  over  high 
order  character,  the  sum  of  the  sizes  of 
the  table  argument  and  the  table  value 
must  be  not  more  than  80  characters 


v 


VWW ...  V 

1 


AA  .  . 


A 


WV.  .  .V  =  Table  Value 
AAA. . .A  =  Table  Argument 
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APPENDIX  D 


The  EXECUTIVE 

EXECUTIVE  CONTROL  CARD  FORMATS 

requires  two  control  cards  with  the  following  formats: 

CONTROL  CARD  1 


COLUMN 

FIELD 

1-4 

CTLl 

6-13 

Type  of  run 

UPDATEbb=upda  te  run 

GENERATE-“generate  run 

BROWSEbb=browse  run 

15  -  24 

Control  set  name,  left- justified 

26  -  29 

Unit  record  input  source 

CARD=card  input 

TAPE=tape  input 

31  -  33 

Temporary  modification  of  logical  operators 
TEMPbMOD=y e  s 
bbbbbbbb=no 

40  -  46 

Tape  I/O  overlap  option 

OVERLAP=yes 

bbbbbbb=no 

48  -  54 

Input  update  type 

MIXEDbb=mixed  option  (implies  use  of 
$$UPDATE*  unit  record  attribute) 
ALL/CHb=all  updates  are  changes 
ALL/ADD=all  updates  are  adds 

ALL/DEL=all  updates  are  deletes 
ADD/CHb=all  updates  are  either  adds  or 
changes 

*  £ 

If  the  mixed  mode  (A,C,  or  D)  of  update  is  selected,  one,  and  only 
one,  $$UPDATE  unit  record  attribute  must  be  defined  for  a  control 
set.  The  user  need  only  provide  the  relative  position  within  the 


unit  record. 
SIZE 

TYPE 

Implied  definitions  for  this  field  are  as  follows 
=  1  character; 

=  alphabetic  (A) 

LEGAL  VALUES  =  A,C,  or  D  for  add,  change,  or  delete 
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COLUMN 


FIELD 


56  -  58 

Sort  sequence  of  file  and  input  records 
(by  merge  id  in  1410  collating  sequence) 

ASC=ascending  order 

DSC=descending  order 

60  -  66 

Mode  of  operation 

0NLINEb=0CC  error  interface 

0FFLINE=no  OCC  error  interface 

CONTROL  CARD  2 


COLUMN 

FIELD 

1  -  4 

CTL2 

6 

Error  padding  character  (any  legal  1410 
character) 

8 

Allow  input  unit  record  sequence  errors  # 

and/or  record  repetitions 

Y=yes,  ignore  errors 
b=no,  log  errors  to  printer 

10 

Do  not  generate  logical  update  transaction 
record  if  $$C0UNT*  is  illegal 

Y=yes ,  do  not  generate  record 
b=no,  generate  record 

12  -  15,  17  -  20 

Size  and  position  of  BREAK** fie  Id  in 
file  record.  Blank  entries  imply  no 
break  option. 

* 

If  the  user  wishes  to  perform  a  unit  record  count  check  on  unit 
record  input,  one,  and  only  one,  $$COUNT  unit  record  attribute 
must  be  defined  for  a  control  set.  The  user  supplies  the 
relative  position  of  the  count  field  and  the  size  of  the  count 
field  (field  size  is  a  maximum  of  three  positions).  The  TYPE  is 
assumed  as  numeric. 

"'BREAK  OPTION  --  If  desired,  the  user  may  define  a  field  on  the 
file  record  which  when  the  value  changes  from  one  record  to  the 
next  will  start  writing  records  on  a  new  tape. 
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COLUMN 


FIELD 


22 

-  23 

Size  of  tape  file  trailer  records  [01,41] 
Blank  entry  indicates  no  trailer  records 

25 

-  66 

Trailer  record  data  ( le ft- jus tified)  if 
field  (22  -  23)  is  non-blank. 
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